--module TestFilm where

import Film
import IdObject

f1, f2, f3 :: Film
f1 = Film 1 ("Star Wars", 2000, "George Lucas", "science-fiction", Available, "kolejna czesc sagi")
f2 = Film 2 ("Forrest Gump", 1994, "Robert Zemeckis", "fabularny", Lost, "Oscarowa rola T. Hanksa")
f3 = Film 3 ("Mis", 1980, "Stanislaw Bareja", "komedia", Available, "film demaskujacy absurdy PRL-u lat 70.-tych")


-- ==
b1 = (f1 == f2)
-- b1 = False
b2 = (f1 == f1)
-- b2 = True


idd = getId f3
-- idd = 3

filmInfo = getFilmInfo f2
-- filmInfo = ("Forrest Gump", 1994, "Robert Zemeckis", "fabularny", True, "Oscarowa rola T. Hanksa")

title = getTitle f1
-- title = "Star Wars"

year = getYear f3
-- year = 1980
dir = getDirector f2
-- dir = Robert Zemeckis

ga = getState f2
-- ga = Lost

desc = getDescription f3
-- desc = ...
